1 .
2 .
3 .
4 .
5 .DIMINISHING BOXES
6 .BY MATT GIWER
7 NT=0
8 clear 
800 A=75
810 B=75
815 G=rnd (3)
820 G=Gmul 2
825 H=rnd (2)
826 H=Hmul 2
830 X=rnd (5)
840 X=X-3
900 for D=1to 100
910 A=A-G
920 B=B-H
930 if A<3goto 800
940 if B<3goto 800
1000 box X,0,A,B,3
2000 next D
:return ;run 

